home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
ada
/
gwuada_9.zip
/
14.C
< prev
next >
Wrap
C/C++ Source or Header
|
1993-07-27
|
773b
|
31 lines
/*
* Copyright (C) 1985-1992 New York University
*
* This file is part of the Ada/Ed-C system. See the Ada/Ed README file for
* warranty (none) and distribution info and also the GNU General Public
* License for more details.
*/
#include "hdr.h"
#include "vars.h"
#include "attr.h"
#include "errmsgp.h"
#include "chapp.h"
void check_range_attribute(Node node) /*;check_range_attribute*/
{
if (N_KIND(node) == as_attribute
&& ((int)attribute_kind(node) == ATTR_O_RANGE
|| (int)attribute_kind(node) == ATTR_T_RANGE)) {
errmsg("invalid use of 'RANGE in expression", "none", node) ;
}
}
#ifdef TBSN
int is_value(char *x) /*;is_value*/
{
TO_ERRFILE("is_value (ch 14) not implemented");
return (is_tuple(x) and x(1) = 'ivalue') ;
}
#endif